home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Ambitus System / ambitus-chord-voice < prev    next >
Lisp/Scheme  |  1998-10-24  |  546b  |  26 lines
  1. ambitus-chord-voice range symbol-lists length-lists
  2.  
  3. max voices: 5
  4.  
  5. (ambitus-chord-voice
  6.  11
  7.  (list '(a -b -b) '(n n n))
  8.  (list '(-1/8 1/8 -1/4 -1/8 1/2 1/8) '(1/8 1/4 -1/8  1/2 -1/8)))
  9.  
  10. (setq s-v1 '(a -b c))
  11. (setq s-v2 '(p e f \g))
  12. (setq s-va '(h -i))
  13. (setq s-vc '(j k -l))
  14.  
  15. (setq l-v1 '(1/1 -1/8  2/8 -1/8 5/8))
  16. (setq l-v2 '(1/8  1/8 -1/8  2/8 1/8))
  17. (setq l-va '(-2/8  1/8 -5/8  1/8))
  18. (setq l-vc '(-1/8  3/8  1/8  1/8))
  19.  
  20. (ambitus-chord-voice
  21.  11
  22.  (list s-v1 s-v2 s-va s-vc)
  23.  (list l-v1 l-v2 l-va l-vc))
  24.  
  25. => ((a -b c) (d e f c) (h -i) (j k -l))
  26.